home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk Supreme
/
Softdisk Supreme.iso
/
pc
/
DSK Files
/
0-49
/
SD008a.dsk
/
JUNE.COVER.bas
< prev
next >
Wrap
BASIC Source File
|
2003-06-12
|
2KB
|
48 lines
100 REM ***********************
110 REM * SOFTDISK MAG. COVER *
120 REM * V1 #10 JUNE, 1982 *
130 REM * *
140 REM * PICTURE BY JIM GANZ *
150 REM * *
160 REM * TEXT GENERATED BY: *
170 REM * "HIGHER TEXT" *
180 REM * *
190 REM * HI-RES SCROLL RTN *
200 REM * BY EDWARD C. SO *
210 REM * FROM "CALL -APPLE" *
220 REM * FEB. 1982 VOL 5 #2 *
230 REM ***********************
240 TEXT : HOME
250 GOSUB 350: PRINT CHR$(4)"BRUNCOVER.SCROLL"
260 PRINT CHR$(4)"BLOADSOFTDISK.COVER.JUNE,A$2000"
270 VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER": HTAB 9: PRINT "(PRESS AGAIN TO SCRAM)";
280 POKE -16368,0: CALL -756
290 POKE -16300,0: POKE -16302,0: POKE -16297,0: POKE -16304,0: POKE 230,32
300 WUN = 1:W91 = 191
310 CALL -756: POKE 0,0: POKE 2,0: POKE 3,39: FOR X = 0 TO 51: POKE WUN,W91 -X: & U: NEXT
320 HOME : POKE -16368,0
330 POKE -16301,0: VTAB 21: HTAB 11: PRINT "(PLEASE STAND BY...)"
340 PRINT CHR$(4)"RUNKICK.IT.OFF"
350 VTAB 3: INVERSE : FOR X = 0 TO 9: HTAB 11: PRINT SPC( 29): PRINT : NEXT
360 T$ = "SOFTDISK MAGAZETTE"
370 VTAB 1: HTAB 3: INVERSE : FOR X = 1 TO LEN(T$): IF X = 9 THEN CALL -1036: GOTO 390
380 PRINT MID$ (T$,X,1);
390 CALL -1036: NEXT
400 VTAB 4
410 HTAB 12: PRINT CHR$(34)"IF THE SPACE SHUTTLE"
420 HTAB 12: PRINT "ITSELF IS ANOTHER GIANT"
430 HTAB 12: PRINT "STEP FOR MANKIND, IT IS"
440 HTAB 12: PRINT "ALSO A GIANT STEP FOR ANY-"
450 HTAB 12: PRINT "ONE WHO BELIEVES THERE IS"
460 HTAB 12: PRINT "A GREAT MARKET FOR MICRO-"
470 HTAB 12: PRINT "COMPUTERS IN THE INDUSTRIAL"
480 HTAB 12: PRINT "AND SCIENTIFIC MARKETPLACE." CHR$(34)
490 NORMAL
500 VTAB 14
510 PRINT "QUOTED FROM DR. JOSEPH WILLSON, PRESIDENT OF INTERACTIVE STRUCTURES,INC.";
520 PRINT "IN " CHR$(34)"APPLE" CHR$(34)" MAGAZINE VOL 1 NO. 3."
530 PRINT
540 PRINT "COVER BY: JIM GANZ 82 SPRING LANE WEST HARTFORD, CONN."
550 RETURN
560 REM
570 REM PROGRAM ENDS AT 340